home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 4-Demos / Apple Demos / Tutorials / Display Card 4•8⁄8•24 Training / Display Card 4•8_8•24 Training / background_10579.txt < prev    next >
Text File  |  1990-03-19  |  4KB  |  180 lines
  1. -- background: 10579 from stack: in
  2. -- bmap block id: 20778
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: checkBack
  6. ----- HyperTalk script -----
  7. on fixResponses -- called from openCard on tests 1, 2, and 3
  8.   repeat with r = 1 to the number of cd flds
  9.     if word 1 of the short name of cd fld r = "answer" then
  10.       put word 2 of the short name of cd fld r into rLine
  11.       get line rLine of cd fld "Your Responses"
  12.       if it <> "" then
  13.         put line rLine of cd fld "Your Responses" into cd fld r
  14.       else
  15.         put "" into cd fld r
  16.       end if
  17.     end if
  18.   end repeat
  19. end fixResponses
  20.  
  21. on toggleResponses -- called by mouseup in Answer fields in tests 1-3
  22.   put word 2 of the short name of target into rLine
  23.   repeat with r = 1 to the number of cd flds
  24.     if word 1 of the short name of cd fld r = "Responses" then hide cd fld r
  25.   end repeat
  26.   set the visible of cd fld ("Responses" && rLine) to true
  27. end toggleResponses
  28.  
  29. on chooseResponses -- called by mouseup in Responses fields in tests 1-3
  30.   global inProgress
  31.   put true into inProgress
  32.   put clickline() into temp
  33.   put (word 2 of the short name of target) into rLine
  34.   put line temp of cd fld ("Responses" && rLine) into cd fld ("Answer" && rLine)
  35.   put cd fld ("Answer" && rLine) into line rLine of cd fld "Your Responses"
  36.   hide cd fld ("Responses" && rLine)
  37.   put temp into line rLine of cd fld "Your Answers"
  38. end chooseResponses
  39.  
  40. on ScoreReview
  41.   global memolist, testnumber, correct, incorrect
  42.   put "0" into correct
  43.   put "0" into incorrect
  44.   answer "Do you want to review your scores?" with "No" or "Yes"
  45.   if it is "No" then go card "test 0"
  46.   else
  47.     put 1 into s
  48.     repeat with s = 1 to the number of items in memolist
  49.       if item s of memolist = "true" then add 1 to correct
  50.       else add 1 to incorrect
  51.       add 1 to s
  52.     end repeat
  53.     go card "test 7"
  54.     put correct into line testNumber of cd fld "correct"
  55.     put incorrect into line testNumber of cd fld "incorrect"
  56.   end if
  57. end ScoreReview
  58.  
  59.  
  60.  
  61. -- part 6 (field)
  62. -- low flags: 01
  63. -- high flags: 0000
  64. -- rect: left=126 top=79 right=307 bottom=510
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 0 / 0
  67. -- text alignment: 0
  68. -- font id: 156
  69. -- text size: 14
  70. -- style flags: 0
  71. -- line height: 16
  72. -- part name: cardtext
  73.  
  74.  
  75. -- part 4 (field)
  76. -- low flags: 01
  77. -- high flags: 0000
  78. -- rect: left=128 top=0 right=21 bottom=508
  79. -- title width / last selected line: 0
  80. -- icon id / first selected line: 0 / 0
  81. -- text alignment: 0
  82. -- font id: 21
  83. -- text size: 18
  84. -- style flags: 10240
  85. -- line height: 19
  86. -- part name: Title
  87.  
  88.  
  89. -- part 5 (field)
  90. -- low flags: 01
  91. -- high flags: 0000
  92. -- rect: left=128 top=23 right=45 bottom=508
  93. -- title width / last selected line: 0
  94. -- icon id / first selected line: 0 / 0
  95. -- text alignment: 0
  96. -- font id: 21
  97. -- text size: 18
  98. -- style flags: 0
  99. -- line height: 20
  100. -- part name: cardTitle
  101.  
  102.  
  103. -- part 10 (field)
  104. -- low flags: 01
  105. -- high flags: 0000
  106. -- rect: left=127 top=64 right=82 bottom=512
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 0 / 0
  109. -- text alignment: 0
  110. -- font id: 158
  111. -- text size: 14
  112. -- style flags: 0
  113. -- line height: 16
  114. -- part name: subHeader
  115.  
  116.  
  117. -- part 17 (button)
  118. -- low flags: 00
  119. -- high flags: 2000
  120. -- rect: left=428 top=317 right=342 bottom=456
  121. -- title width / last selected line: 0
  122. -- icon id / first selected line: 18611 / 18611
  123. -- text alignment: 1
  124. -- font id: 0
  125. -- text size: 12
  126. -- style flags: 0
  127. -- line height: 16
  128. -- part name: prev
  129. ----- HyperTalk script -----
  130. on mouseUp
  131.   visual scroll right
  132.   go prev
  133. end mouseUp
  134.  
  135.  
  136.  
  137. -- part 18 (button)
  138. -- low flags: 00
  139. -- high flags: 2000
  140. -- rect: left=457 top=317 right=342 bottom=484
  141. -- title width / last selected line: 0
  142. -- icon id / first selected line: 18612 / 18612
  143. -- text alignment: 1
  144. -- font id: 0
  145. -- text size: 12
  146. -- style flags: 0
  147. -- line height: 16
  148. -- part name: next
  149. ----- HyperTalk script -----
  150. on mouseUp
  151.   if word 2 of the short name of this card = "0" then
  152.     visual dissolve
  153.     go next
  154.   else
  155.     visual scroll left
  156.     go next
  157.   end if
  158. end mouseUp
  159.  
  160.  
  161.  
  162. -- part 21 (button)
  163. -- low flags: 00
  164. -- high flags: A000
  165. -- rect: left=449 top=3 right=18 bottom=510
  166. -- title width / last selected line: 0
  167. -- icon id / first selected line: 0 / 0
  168. -- text alignment: 0
  169. -- font id: 3
  170. -- text size: 10
  171. -- style flags: 2048
  172. -- line height: 13
  173. -- part name: Contents
  174. ----- HyperTalk script -----
  175. on mouseUp
  176.   visual effect dissolve
  177.   go card "content 0"
  178. end mouseUp
  179.  
  180.